<%
page = CInt(SelfRequestNumber("page"))

Set rs = Server.CreateObject("ADODB.Recordset")
if page = 0 then
	strSQL = "select top 5 * from GameWiki order by Hot desc"
else
	strSQL = "SELECT TOP 5 * FROM GameWiki WHERE ( Hot NOT IN (SELECT TOP " & CStr(5 * page) & " Hot FROM GameWiki ORDER BY Hot desc)) ORDER BY Hot desc"
end if
rs.Open strSQL, dbconnection, adOpenDynamic, 3
Dim TextArray1(5)
Dim PicArray1(5)
bNext = True

for i = 0 to ubound(TextArray1) - 1
	if not rs.eof then
		PicArray1(i)="<A href=""wikivip/"&rs("URL")&".htm"" onclick=""addClick('"&rs("ID")&"');""><img src="""&rs("Pic")&""" border=""0"" width=""100"" height=""100"" alt="""" /></A>"
		TextArray1(i)="<A href=""wikivip/"&rs("URL")&".htm"" onclick=""addClick('"&rs("ID")&"');"">"&rs("Title")&"</A><br />人气："&rs("Click")&"<br />推荐指数："&rs("Hot")&"<br />"&rs("Text")
		rs.movenext
	else
		TextArray1(i)="&nbsp;"
		PicArray1(i)="&nbsp;"
		bNext = False
	end if
next
set rs = nothing
%>
		<hr style="border:1px dashed black; height:1px;">
		<%if TextArray1(0) <> "&nbsp;" then%>
		<div class="GameCommodityDiv1">
			<div class="GamePicDiv"><%=PicArray1(0)%></div>
			<div class="GameTextDiv" align="left"><%=TextArray1(0)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<%end if%>
		<%if TextArray1(1) <> "&nbsp;" then%>
		<div class="GameCommodityDiv1">
			<div class="GamePicDiv"><%=PicArray1(1)%></div>
			<div class="GameTextDiv" align="left"><%=TextArray1(1)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<%end if%>
		<%if TextArray1(2) <> "&nbsp;" then%>
		<div class="GameCommodityDiv1">
			<div class="GamePicDiv"><%=PicArray1(2)%></div>
			<div class="GameTextDiv" align="left"><%=TextArray1(2)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<%end if%>
		<%if TextArray1(3) <> "&nbsp;" then%>
		<div class="GameCommodityDiv1">
			<div class="GamePicDiv"><%=PicArray1(3)%></div>
			<div class="GameTextDiv" align="left"><%=TextArray1(3)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<%end if%>
		<%if TextArray1(4) <> "&nbsp;" then%>
		<div class="GameCommodityDiv1">
			<div class="GamePicDiv"><%=PicArray1(4)%></div>
			<div class="GameTextDiv" align="left"><%=TextArray1(4)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<%end if%>
		<div class="TableRow">
		<%if page > 0 then%>
		<a href="gamewiki.asp?page=<%=page-1%>">
		<%end if%>
		上一页
		<%if page > 0 then%>
		</a>
		<%end if%>
		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<%if bNext = True then%>
		<a href="gamewiki.asp?page=<%=page+1%>">
		<%end if%>
		下一页
		<%if bNext = True then%>
		</a>
		<%end if%>
		</div>
		<hr style="border:1px dashed black; height:1px;">
